home *** CD-ROM | disk | FTP | other *** search
/ CICA 1993 April / CICA MS Windows - April 1993.iso / unzipped / programr / listings / ptv2n5 / chkmem.pas < prev    next >
Pascal/Delphi Source File  |  1991-03-26  |  263b  |  12 lines
  1. PROGRAM chkmem;
  2.   { Michael A. Covington, 1991 }
  3.   { Reports amount of memory free. }
  4. USES
  5.   WinTypes, WinProcs;
  6. VAR
  7.   s: String;
  8. BEGIN
  9.   Str(GetFreeSpace(0),s);
  10.   s := s + ' bytes free'#0;
  11.   MessageBox(GetActiveWindow,addr(s[1]),'Memory Check',0)
  12. END.